(define countdown
  (lambda (n)
    (cond ((zero? n)
           (display "It's BREAK TIME!!!")
           (newline))
          (else
           (display n)
           (newline)
           (countdown (- n 1))))))
(countdown 10)

(define pega-face
  (lambda (carta)
    (car carta)))

(define pega-naipe
  (lambda (carta)
    (car (cdr carta))))

(define face->string
  (lambda (face)
    (cond ((symbol? face)
           (symbol->string face))
          ((number? face)
           (number->string face)))))

(define hand->string
  (lambda (hand)
    (if (null? hand)
        ""
        (let ((carta (car hand)))
          (string-append
           (face->string (pega-face carta)) ":"
           (symbol->string (pega-naipe carta)) " "
           (hand->string (cdr hand)))))))

(hand->string '((k ouros)
                (3 espadas)
                (5 ouros)
                (q paus)
                (q copas)))
           

       